home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / kang / iridium flowers < prev    next >
Text File  |  1999-06-15  |  726b  |  31 lines
  1. Category: kang
  2. Title: Iridium Flowers
  3. Copyright: na
  4. Author: kangaroo
  5. Filename: IRIDIUM.8BF
  6.  
  7. R:put(((sin(y*ctl(0)*36/M)*sin(y*ctl(0)*12/M))*(sin(cos(val(2,-255,255)*Y^y*ctl(1)*60/M)-cos(-val(2,-255,64)*Y^x*ctl(1)*60/M))+val(3,-220,700)))/V/115,1),put(get(1)*255/22/255-40,0),get(0)&256?270+ctl(5)-(get(0)&511):get(0)+c-111
  8.  
  9. G:c+put(get(1)*255/22/255-40,0),get(0)&256?270+ctl(6)-(get(0)&511):get(0)+c-111
  10.  
  11. B:c+put(get(1)*255/22/255-40,0),get(0)&256?270+ctl(7)-(get(0)&511):get(0)+c-111
  12.  
  13. A:a
  14.  
  15. ctl[0]: Bars
  16. ctl[1]: size of Pattern
  17. ctl[2]: alter Pattern
  18. ctl[3]: light Warp effect
  19. ctl[5]: red
  20. ctl[6]: green
  21. ctl[7]: blue
  22.  
  23. val[0]: 31
  24. val[1]: 77
  25. val[2]: 14
  26. val[3]: 32
  27. val[5]: 184
  28. val[6]: 203
  29. val[7]: 252
  30.  
  31.